
TRIGGER PROCEDURE FOR WRITE OF RO_DET OLD BUFFER OLD_RO_DET.


{mfdeclre.i }
define new shared work-table wf_old_ro_det like ro_det.

/* fdn 2004/10/28 Modify Record processing */
HK:
do:
    if can-find(first dt_mstr where dt_table = "ro_det" and dt_type = "SYNC") then
        run CreateSyncFlag(input "MOD", input recid(ro_det), input "ro_det").

    if not can-find ( first dt_mstr where dt_table = "ro_det" and dt_type = "MOD" ) then leave HK.
    
    if not can-find ( first wf_old_ro_det ) then do:
        create wf_old_ro_det.
        if recid(wf_old_ro_det)= -1 then .
    end.
    
    buffer-copy old_ro_det to wf_old_ro_det no-error.

    for each dt_mstr no-lock where dt_table = "ro_det" and dt_type = "MOD" :
    
        case dt_field :

            when "ro_routing" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_routing, input ro_det.ro_routing,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_op" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_op), input string(ro_det.ro_op),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_desc" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_desc, input ro_det.ro_desc,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_wkctr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_wkctr, input ro_det.ro_wkctr,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_setup" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_setup), input string(ro_det.ro_setup),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_run" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_run), input string(ro_det.ro_run),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_move" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_move), input string(ro_det.ro_move),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_yield_pct" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_yield_pct), input string(ro_det.ro_yield_pct),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_tool" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_tool, input ro_det.ro_tool,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_vend" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_vend, input ro_det.ro_vend,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_sub_cost" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_sub_cost), input string(ro_det.ro_sub_cost),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_start" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_start), input string(ro_det.ro_start),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_end" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_end), input string(ro_det.ro_end),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_tran_qty" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_tran_qty), input string(ro_det.ro_tran_qty),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_inv_value" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_inv_value), input string(ro_det.ro_inv_value),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_cmtindx" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_cmtindx), input string(ro_det.ro_cmtindx),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_mch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_mch, input ro_det.ro_mch,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_milestone" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_milestone), input string(ro_det.ro_milestone),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_batch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_batch), input string(ro_det.ro_batch),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_user1" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_user1, input ro_det.ro_user1,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_user2" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_user2, input ro_det.ro_user2,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_std_op" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_std_op, input ro_det.ro_std_op,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_setup_men" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_setup_men), input string(ro_det.ro_setup_men),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_men_mch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_men_mch), input string(ro_det.ro_men_mch),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_mch_op" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_mch_op), input string(ro_det.ro_mch_op),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_lbr_ovhd" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_lbr_ovhd), input string(ro_det.ro_lbr_ovhd),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_queue" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_queue), input string(ro_det.ro_queue),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_wait" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_wait), input string(ro_det.ro_wait),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_sub_lead" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_sub_lead), input string(ro_det.ro_sub_lead),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_cyc_unit" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_cyc_unit), input string(ro_det.ro_cyc_unit),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_cyc_rate" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_cyc_rate), input string(ro_det.ro_cyc_rate),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__chr01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__chr01, input ro_det.ro__chr01,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__chr02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__chr02, input ro_det.ro__chr02,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__chr03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__chr03, input ro_det.ro__chr03,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__chr04" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__chr04, input ro_det.ro__chr04,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__chr05" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__chr05, input ro_det.ro__chr05,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__dte01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__dte01), input string(ro_det.ro__dte01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__dte02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__dte02), input string(ro_det.ro__dte02),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__dec01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__dec01), input string(ro_det.ro__dec01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__dec02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__dec02), input string(ro_det.ro__dec02),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__log01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__log01), input string(ro_det.ro__log01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_std_batch" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_std_batch), input string(ro_det.ro_std_batch),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_rollup" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_rollup), input string(ro_det.ro_rollup),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_rollup_id" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_rollup_id, input ro_det.ro_rollup_id,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_elm_lbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_elm_lbr, input ro_det.ro_elm_lbr,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_elm_bdn" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_elm_bdn, input ro_det.ro_elm_bdn,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_elm_sub" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_elm_sub, input ro_det.ro_elm_sub,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_start_ecn" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_start_ecn, input ro_det.ro_start_ecn,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_end_ecn" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_end_ecn, input ro_det.ro_end_ecn,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_po_nbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_po_nbr, input ro_det.ro_po_nbr,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_po_line" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_po_line), input string(ro_det.ro_po_line),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_mv_nxt_op" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_mv_nxt_op), input string(ro_det.ro_mv_nxt_op),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_wipmtl_part" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_wipmtl_part, input ro_det.ro_wipmtl_part,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_auto_lbr" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_auto_lbr), input string(ro_det.ro_auto_lbr),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_bom_code" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_bom_code, input ro_det.ro_bom_code,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_cost" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_cost), input string(ro_det.ro_cost),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_fsm_type" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_fsm_type, input ro_det.ro_fsm_type,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_price" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_price), input string(ro_det.ro_price),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_mod_date" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro_mod_date), input string(ro_det.ro_mod_date),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_mod_userid" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_mod_userid, input ro_det.ro_mod_userid,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadc01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__qadc01, input ro_det.ro__qadc01,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadc02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__qadc02, input ro_det.ro__qadc02,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadc03" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro__qadc03, input ro_det.ro__qadc03,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qade01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qade01), input string(ro_det.ro__qade01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qade02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qade02), input string(ro_det.ro__qade02),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadt01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qadt01), input string(ro_det.ro__qadt01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadt02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qadt02), input string(ro_det.ro__qadt02),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadl01" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qadl01), input string(ro_det.ro__qadl01),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro__qadl02" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input string(wf_old_ro_det.ro__qadl02), input string(ro_det.ro__qadl02),
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

            when "ro_fsc_code" then
                run CreateDthist(input dt_table, input dt_field, input dt_type, input wf_old_ro_det.ro_fsc_code, input ro_det.ro_fsc_code,
                    input recid(ro_det), input ro_det.ro_routing, input string(ro_det.ro_op), input string(ro_det.ro_start), input "",
                    input "", input "", input "", input "").

        end.

    end.
end.

{hkdttrans.i}
